home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 46
/
64er_Magazin_Sonderheft_46_19xx_Markt__Technik_de_Side_B.d64
/
adress x2000
(
.txt
)
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
89 lines
5 printchr$(14):printchr$(8)
10 input"[147][197]pson (j/n)";d$
20 p$="[184][184]"
30 dim a$(100),b$(100),a(100),b(100)
40 printchr$(147):poke646,5
50 poke53281,0:poke53280,0
60 print:printspc(17);"[153][205]enue"
70 printspc(17);"*****"
80 print:printspc(12);"[150]1.[211]peichern"
90 print:print:printspc(12);"2.[204]aden"
100 print:print:printspc(12);"[152]3.[204]oeschen"
110 print:print:printspc(12);"[155]4.[211]peicherinhalt zeigen"
120 print:print:printspc(12);"[154]5.[211]peicherinhalt drucken"
130 print:print:printspc(12);"[156]6.[208]ostkartenkleber"
140 print:print:printspc(12);"7.[197]xit to [194]asic"
150 getu$:ifu$=""then150
160 a=val(u$)
170 ifa=1then250
180 ifa=2then400
190 ifa=3then820
200 ifa=4then660
210 ifa=5then670
220 ifa=6then680
230 ifa=7then640
240 goto40
250 input"[147][150][214]orname";a$(0)
260 input"[206]ame";a$(1)
270 input"[211]trasse";a$(2)
280 input"[207]rt";a$(3)
290 input"[151][208]lz";a(0)
300 input"[129][212]el.";a$(4)
310 open1,8,2,+a$(1)+" "+left$(a$(0),1)+".,s,w"
320 print#1,a$(0)
330 print#1,a$(1)
340 print#1,a$(2)
350 print#1,a$(3)
360 print#1,a$(4)
370 print#1,a(0)
380 close1
390 goto40
400 input"[147][149][194]itte den [214]ornamen angeben";b$(1)
410 input"[129][202]etzt den [206]achnamen";b$(0)
420 ifl=10thenreturn
430 open1,8,2,+b$(0)+" "+left$(b$(1),1)+".,s,r"
440 input#1,a$(0)
450 input#1,a$(1)
460 input#1,a$(2)
470 input#1,a$(3)
480 input#1,a$(4)
490 input#1,a(0)
500 close1
510 print"[147]"
520 ify=2thenprint"[147][211]peicherinhalt wird gedruckt":open4,4:cmd4
530 poke646,9:print"[214]orname: ";a$(0)
540 print"[206]ame : ";a$(1)
550 poke646,3:print"[211]trasse: ";a$(2)
560 poke646,4:print"[207]rt : ";a$(3)
570 poke646,10:print"[208]lz :";a(0)
580 print"[212]el. : ";a$(4)
590 ify=2theny=0:return
600 print"->> [212]aste fuer [205]enue <<-[146]"
610 gett$:ift$=""then610
620 ify=1theny=0:return
630 goto 40
640 print"[147]";spc(10);"[158][193]uf [215]iedersehen"
650 end
660 y=1:gosub510:goto40
670 y=2:gosub510:print#4:close4:goto40
680 input"[147][158][193]nrede";r$
690 f$=str$(a(0))
700 fori=1tolen(f$+a$(3)):p$=p$+"[184]":nexti
710 open4,4:cmd4
720 print r$
730 print
740 print a$(0);" ";a$(1)
750 print
760 print a$(2)
770 print
780 ifd$="j"thengosub850:goto810
790 print a(0);a$(3)
800 printp$
810 print#4:close4:p$="[184][184]":goto40
820 l=10:gosub400:l=0
830 open1,8,15,"s:"+b$(0)+" "+left$(b$(1),1)+"."
840 close1:goto40
850 print#4,chr$(27)"a"chr$(5);chr$(27)"-"chr$(1);
860 print#4," "a(0);a$(3)" "
870 print#4,chr$(27)"-"chr$(0):return